*** Pipe List Mod Code

OE.GET.LDID.LIST LDID.LIST,OID,GEN
LDID.CT = DCOUNT(LDID.LIST,VM)

FOR LDID.CTR = 1 TO LDID.CT
LDID = LDID.LIST<1,LDID.CTR>
LD.GET LDID
PN = LD(1)<1,GEN>
PIPE.LENGTH = TRANS('PRODUCT.GPS',PN,16,'X')
IF PIPE.LENGTH = "" THEN GOTO SKIP.LD
IF SUM(LD(5)<1,GEN>)+SUM(LD(6)<1,GEN>) = 0 THEN GOTO SKIP.LD
DESC = TRANS('PRODUCT',PN,1,'X')
SHIP.QTY = LD(5)<1,GEN>+LD(6)<1,GEN>
PIECES = (SHIP.QTY/PIPE.LENGTH)*-1
**REMINDER CODE**

NORM.BOLD  = CHAR(27):'(8U'
NORM.BOLD := CHAR(27):'(s0p10h12v0s1b3T'
NORM       = CHAR(27):'(8U'
NORM      := CHAR(27):'(s0p10h12v0s0b3T'
REMIND = TRANS('PRODUCT.GPS',PN,15,'X')
BOLDED.REMINDER = NORM.BOLD:REMIND:MED
LOCATE REMIND IN DESC SETTING REMINDER ELSE REMINDER = ''
MOD.DESC  = EREPLACE (DESC,REMIND,'^')
DESC1     = MED:FIELD(MOD.DESC,'^',1)
DESC2     = BOLDED.REMINDER
DESC3     = FIELD(MOD.DESC,'^',2)

DESC = DESC1:DESC2:DESC3

CHAR.CT   = DCOUNT(MOD.DESC,'^')
IF CHAR.CT=2 THEN
DESC = EREPLACE (DESC,REMIND,BOLDED.REMINDER)
END
**END REMINDER CODE**


CONVERT SVM TO " " IN DESC

DATA<-1> = SPACE(5):MED:PIECES:' pcs - ':MED:DESC:' (.':PN:') for ':TICKET.ID
SKIP.LD:  NEXT LDID








DCT = DCOUNT(DATA,AM)
FOR J = 1 TO DCT

PRINT DATA<J>
NEXT J